home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Atari Mega Archive 1
/
Atari Mega Archive - Volume 1.iso
/
tex
/
td187src.lzh
/
MTALERTS.D
< prev
next >
Wrap
Text File
|
1991-06-08
|
2KB
|
61 lines
DEFINITION MODULE mtAlerts;
FROM MagicSys IMPORT Byte, ByteSet,
sWORD, sINTEGER, sCARDINAL, sBITSET,
lWORD, lINTEGER, lCARDINAL, lBITSET;
TYPE Icons = (Atari,
Bomb,
Book,
Clipboard,
CDDisk,
Data,
Disk,
File,
Folder,
Graphic,
Harddisk,
Info,
Laser,
Printer,
Tools,
Trash);
TYPE IconPtr = POINTER TO ARRAY [0..31] OF lCARDINAL;
PROCEDURE Alert (def: sINTEGER; str: ARRAY OF CHAR): sINTEGER;
(* Alertbox, wie FormAlert, jedoch mit den Spezialitäten von MagicDials
* Icon 1 - 3 sind die gewohnten Alert-Icons, Icon 4 aktiviert ein zuvor
* mit UserIcon oder SetIcon gesetztes Icon.
*)
PROCEDURE PosAlert (x, y, def: sINTEGER; str: ARRAY OF CHAR): sINTEGER;
(* Wie Alert, die Alertbox wird jedoch an Position x,y dargestellt
* (linke obere Ecke)
*)
PROCEDURE MouseAlert (def: sINTEGER; str: ARRAY OF CHAR): sINTEGER;
(* Wie Alert, die Alertbox wird jedoch um die Mausposition zentriert *)
PROCEDURE SetIcon (icon: Icons);
(* Setzt ein Icon aus der Liste. Das Icon wird benutzt, wenn Alert mit
* Icon-Nummer 4 aufgerufen wird.
*)
PROCEDURE SetIconColor (color: sINTEGER);
(* Setzt die Farbe des Icons. Damit kann man im Farbmodus wichtige Zustände
* besonders hervorheben.
*)
PROCEDURE UserIcon (icon: IconPtr);
(* icon sollte auf einen ARRAY [0..31] OF lCARDINAL zeigen, der die Bitmaske
* des Icons enhält. Bei Aufruf von Alert mit Icon-Nummer 4 wird dieses
* Icon angezeigt
*)
END mtAlerts.